home *** CD-ROM | disk | FTP | other *** search
/ The Fatted Calf / The Fatted Calf.iso / Applications / Developer / BBFig / Source / BBox.psw < prev    next >
Text File  |  1992-01-09  |  14KB  |  700 lines
  1. /* BBox.psw -- pswrap for bb.ps by Bernie Cosell  [cosell@bbn.com]
  2.     and a wrap to get back the final BoundingBox info from bb.ps.
  3.    When a new (and better) version of bb.ps becomes available,
  4.     replace the content of SendBBfig() with it with the following
  5.     changes:
  6. [1] Comment out "init" near the end of the new definition of "showpage"
  7.     operator.
  8.     
  9.    Izumi Ohzawa, 92-1-4
  10.        First wrapping
  11. */
  12.  
  13. /* bbfig.ps -- the whole thing as a pswrap */
  14.  
  15. defineps SendBBfig ()
  16. % ------- Insert new version of bb.ps below unmodified ---------------------
  17. %! 
  18. % bb.ps --
  19. % 
  20. % Prints a file, but keeps track of bounding box info, and prints the box at
  21. % the end (around the figure.)
  22. % 
  23. % $Header: bb.ps,v 1.14 91/03/21 13:04:02 cosell Exp $
  24. % RCS log info at end
  25.  
  26. 50 dict /$BoundingBox exch def
  27.  
  28. $BoundingBox begin
  29.  
  30. /xdef {
  31.     exch def
  32. } def
  33.  
  34. /xstore {
  35.     exch store
  36. } def
  37.  
  38. /addcoords {
  39.     exch
  40.     4 -1 roll add
  41.     3 1 roll add
  42. } def
  43.  
  44. % 
  45. % Stubs of old functions.
  46. % 
  47.  
  48. /-stroke /stroke load def
  49. /-fill /fill load def
  50. /-eofill /eofill load def
  51. /-image /image load def
  52. /-show /show load def
  53. /-awidthshow /awidthshow load def
  54. /-showpage /showpage load def
  55. /-restore  /restore load def
  56. /-imagemask /imagemask load def
  57.  
  58. end % $BoundingBox
  59.  
  60. % 
  61. % New Functions.   --- These go into the user dict to intercept the calls
  62. % 
  63.  
  64. /stroke {
  65.         $BoundingBox begin
  66.     gsave
  67.     initmatrix
  68.     (stroke called\n) traceprint %%DEBUG
  69.     {
  70.          strokepath    % Make sure to take line width into account.
  71.         0 setlinejoin
  72.         flattenpath
  73.     } stopped {        % strokepath often hits a limitcheck.
  74.         (Can't set up a strokepath\n) traceprint % DEBUG
  75.         grestore    % Restore the original path
  76.         gsave
  77.     } if
  78.     includepath            % Accumulate it into our box.
  79.     grestore
  80.  
  81.     -stroke
  82.     end % $BoundingBox
  83. } def
  84.  
  85. /fill {
  86.         $BoundingBox begin
  87.     gsave
  88.     (fill called\n) traceprint %%DEBUG
  89.     includepath
  90.     grestore
  91.  
  92.     -fill
  93.     end % $BoundingBox
  94. } def
  95.  
  96. /eofill {
  97.         $BoundingBox begin
  98.     gsave
  99.     (eofill called\n) traceprint %%DEBUG
  100.     includepath
  101.     grestore
  102.  
  103.     -eofill
  104.     end % $BoundingBox
  105. } def
  106.  
  107. % 
  108. % Text is implemented by reducing everything to an `awidthshow'.
  109. % 
  110.  
  111. /show {
  112.         $BoundingBox begin
  113.     (show called\n) traceprint %%DEBUG
  114.     0 0 0 0 0        % Extra parameters for awidthshow
  115.     6 -1 roll        % Bring the string back up
  116.     awidthshow
  117.     end % $BoundingBox
  118. } def
  119.  
  120. /widthshow {
  121.         $BoundingBox begin
  122.         (widthshow called\n) traceprint %%DEBUG
  123.     0 0            % Extra parameters for awidthshow
  124.     3 -1 roll        % Bring the string back up.
  125.     awidthshow
  126.     end % $BoundingBox
  127. } def
  128.  
  129. /ashow {
  130.         $BoundingBox begin
  131.         (ashow called\n) traceprint %%DEBUG
  132.     0 0 0 
  133.     6 3 roll
  134.     awidthshow
  135.     end % $BoundingBox
  136. } def
  137.  
  138.  
  139. % This does all of the work of the text-rendering operators
  140. %   What it does, is compute, basically brute force, what 'charpath'
  141. %   would have given us virtually for free, if 'show' were the only
  142. %   operator that we needed to do.
  143.  
  144. /awidthshow {
  145.     $BoundingBox begin
  146.     gsave
  147.     6 (awidthshow:) debug %%DEBUG
  148.     currentpoint
  149.     2 copy /@starty xdef /@startx xdef
  150.     2 index stringwidth    % Get the natural length of the string
  151.     addcoords            % Add to the start to get the end.
  152.  
  153.     2 index length        % How many characters?
  154.  
  155.     dup            % Add the offsets to each character
  156.     6 index mul
  157.     exch 5 index mul
  158.     addcoords
  159.  
  160.     5 index 3 index
  161.     chcount        % How many padding characters?
  162.  
  163.     dup            % Add the offsets for each pad.
  164.     9 index mul
  165.     exch 8 index mul
  166.     addcoords
  167.  
  168.     /@endy xdef /@endx xdef
  169.  
  170.     % We now have the left and right edges (in user coords)
  171.     % of the text.  Now we need only correct for the vertical
  172.     % displacements needed for the font and we can get the
  173.     % top and bottom edges of the enclosing box
  174.  
  175.     fontheight        % Get the height and depth of the current font.
  176.     
  177.     @startx @starty addcoords
  178.     /@starty xdef /@startx xdef
  179.     @endx @endy addcoords
  180.     /@endy xdef /@endx xdef
  181.     newpath
  182.     @startx @starty moveto
  183.     @endx @starty lineto
  184.     @endx @endy lineto
  185.     @startx @endy lineto
  186.     closepath
  187.         includepath
  188.     grestore
  189.  
  190.     -awidthshow
  191.     end % $BoundingBox
  192. } def
  193.  
  194. % 
  195. % `image':
  196. % 
  197. % Assume here that the image lands in the unit square.
  198. % 
  199.  
  200. /image {
  201.         $BoundingBox begin
  202.         (image called\n) traceprint %%DEBUG
  203.     gsave
  204.     newpath
  205.     0 0 moveto
  206.     1 0 rlineto
  207.     1 1 rlineto
  208.     -1 0 rlineto
  209.     closepath
  210.     includepath
  211.     grestore
  212.  
  213.     -image
  214.     end % $BoundingBox
  215. } def
  216.  
  217. /imagemask
  218. {
  219.     $BoundingBox begin
  220.     (imagemask called\n) traceprint %%DEBUG
  221.     gsave
  222.     newpath
  223.     0 0 moveto
  224.     1 0 rlineto
  225.     1 1 rlineto
  226.     -1 0 rlineto
  227.     closepath
  228.     includepath
  229.     grestore
  230.  
  231.     -imagemask
  232.     end % $BoundingBox
  233. } def
  234.  
  235. % Just define this one out of existence
  236. /framedevice { pop pop pop pop } def
  237.  
  238. % Handle restoring VM --- this is all OK, except that we have to
  239. % hang onto the bb info we collected while in the about-to-be-discarded
  240. % environment
  241.  
  242. /restore
  243. {
  244.     $BoundingBox begin
  245.     (restore called\n) traceprint %%DEBUG
  246.     tracedump  %% HACK, but the only way I see right now to get this stuff!
  247.     bbox-llx bbox-lly bbox-urx bbox-ury 
  248.     5 -1 roll
  249.     -restore
  250.     /bbox-ury xstore /bbox-urx xstore
  251.     /bbox-lly xstore /bbox-llx xstore
  252.     end % $BoundingBox
  253. } def
  254.  
  255.     
  256. % 
  257. % `showpage':
  258. % 
  259. % Just draw the box around the figure and print the page, and then initialize
  260. % the bounding box variables again.
  261. % 
  262.  
  263. $BoundingBox begin
  264. /temp-string 10 string def
  265. end % $BoundingBox
  266.  
  267. /showpage {
  268.     $BoundingBox begin
  269.     initgraphics
  270.  
  271.         (showpage\n) traceprint % DEBUG
  272.     dump-bbox  % DEBUG
  273.  
  274.         /bbox-llx round_down
  275.     /bbox-lly round_down
  276.     /bbox-ury round_up
  277.     /bbox-urx round_up
  278.  
  279.     bbox-llx bbox-lly moveto        % Make the box
  280.     bbox-llx bbox-ury lineto
  281.     bbox-urx bbox-ury lineto
  282.     bbox-urx bbox-lly lineto
  283.     closepath
  284.  
  285.     bwstroke            % Draw the box.
  286.  
  287. % Print the size of the bounding box both above and below the actual box
  288. % This has been disabled for NeXT BBFig [Izumi]
  289. %    0 setgray
  290. %    /Courier findfont 10 scalefont setfont
  291. %    bbox-llx 36 max bbox-lly 12 sub 36 max moveto
  292. %    (%%BoundingBox: ) -show
  293. %    bbox-llx temp-string cvs -show ( ) -show
  294. %    bbox-lly temp-string cvs -show ( ) -show
  295. %    bbox-urx temp-string cvs -show ( ) -show
  296. %    bbox-ury temp-string cvs -show
  297.  
  298. %    bbox-llx 36 max bbox-ury 12 add 740 min moveto
  299. %    (%%BoundingBox: ) -show
  300. %    bbox-llx temp-string cvs -show ( ) -show
  301. %    bbox-lly temp-string cvs -show ( ) -show
  302. %    bbox-urx temp-string cvs -show ( ) -show
  303. %    bbox-ury temp-string cvs -show
  304.  
  305. %    init
  306.     -showpage
  307.     tracedump        %% DEBUG
  308.     end % $BoundingBox
  309. } def
  310.  
  311. % 
  312. % BoundingBox functions:
  313. % 
  314. % We accumulate the information about the bounding box into four variables.
  315. % The data is stored in default coordinates.
  316. % 
  317.  
  318. $BoundingBox begin
  319.  
  320. /init {
  321.     /bbox-llx 99999 store
  322.     /bbox-lly 99999 store
  323.     /bbox-urx -99999 store
  324.     /bbox-ury -99999 store
  325. } def
  326.  
  327. /bbox-llx 0 def
  328. /bbox-lly 0 def
  329. /bbox-urx 0 def
  330. /bbox-ury 0 def
  331.  
  332. % 
  333. % - `includepath' -
  334. % 
  335. % Incorporates the bounding box of the path into the bounding box info.
  336. %   ... Gets the bounding box in default coords
  337.  
  338. /includepath {
  339.         (Adding a path: ) traceprint %%DEBUG
  340.     gsave
  341.         initmatrix
  342.     {
  343.         0 setlinejoin
  344.         flattenpath
  345.     } stopped {
  346.         (Couldn't flatten the path\n) traceprint % DEBUG
  347.         grestore
  348.         gsave
  349.         initmatrix
  350.     } if
  351.     { pathbbox } stopped not
  352.     {
  353.             4 2 roll    % Just so we get lower-left first
  354.         2 copy dump-coord %%DEBUG
  355.         dup bbox-lly lt {    
  356.             /bbox-lly xstore
  357.         } {
  358.             pop
  359.         } ifelse
  360.         dup bbox-llx lt {
  361.             /bbox-llx xstore
  362.         } {
  363.             pop
  364.         } ifelse
  365.  
  366.         (; ) traceprint 2 copy dump-coord (\n) traceprint %%DEBUG
  367.         dup bbox-ury gt {
  368.             /bbox-ury xstore
  369.         } {
  370.             pop
  371.         } ifelse
  372.         dup bbox-urx gt {
  373.             /bbox-urx xstore
  374.         } {
  375.             pop
  376.         } ifelse
  377.         dump-bbox  %%DEBUG
  378.     } if
  379.     grestore
  380. } def
  381.  
  382. % 
  383. % A nice black-and white line drawing function.
  384. % 
  385.  
  386. /bwstroke {
  387.     0 setlinewidth            % Thinnest possible lines
  388.     1 setgray            % White first
  389.     [5] 0 setdash            % Only half the line
  390.     gsave -stroke grestore
  391.     0 setgray            % Then black
  392.     [5] 5 setdash            % On the other half
  393.     -stroke
  394. } def
  395.  
  396. % 
  397. % Stuff for text.
  398. % 
  399.  
  400. % 
  401. % char-code string `chcount' occurs
  402. % 
  403. % Counts the number of times a character appears in a string.
  404. % 
  405.  
  406. /chcount {
  407.     0 exch
  408.     {
  409.         2 index eq {
  410.             1 add
  411.         } if
  412.     } forall
  413.     exch pop
  414. } def
  415.  
  416. % 
  417. % - `fontheight' heightx heighty depthx depthy
  418. % 
  419. % Returns the offsets to the lowest point and highest point in the current
  420. % font.
  421. % 
  422.  
  423. /fontheight {
  424.     currentfont begin
  425.     /FontBBox load aload pop
  426.     exch pop 0 exch
  427.     FontMatrix transform
  428.     4 2 roll
  429.     exch pop 0 exch
  430.     FontMatrix transform
  431.     end
  432. } def
  433.  
  434. % key round_{down|up} -  These will round the value of the given key
  435. %                         up or down, as appropriate, to the nearest integer
  436. /round_up   { dup load ceiling cvi store } def
  437. /round_down { dup load floor   cvi store } def
  438.  
  439. % key binddefinition - this will do a 'bind' on the procedure given by 'key'
  440. /binddefinition
  441. {
  442.     dup where
  443.     {  
  444.         exch
  445.         2 copy
  446.         get bind put
  447.     }     
  448.     { undefined } ifelse
  449. } def  
  450.  
  451. % Given two numbers on the stack, return with just the smallest
  452. /min { 2 copy ge { exch } if pop } def
  453.  
  454. % Dito for the largest of the pair
  455. /max { 2 copy lt { exch } if pop } def
  456.  
  457.  
  458. % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % 
  459. %
  460. %   Debugging utilities
  461. %
  462.  
  463. /$tracedict where
  464. {  % Trace package loaded... do the tracing
  465.     pop
  466. % This is a debugging function to print out what is going on.
  467. %  Format <argn> <argn-1> ... <arg1> n <string> debug <argn> ... <arg1>
  468. %    (that is, the 'n' args will be *left* on the stack!)
  469. /debug
  470. {
  471.     traceprint (\n) traceprint 
  472.     dup 1 add   % Now total number of args (including arg count) 
  473.     copy
  474.     {
  475.         (    ) traceprint 
  476.     trace=
  477.         (\n) traceprint
  478.     } repeat
  479.     pop    % Remove the extra copy of the arg count
  480. } def
  481.  
  482. % Print out a coordinate on the stack:  x y --- 
  483. /dump-coord
  484. {
  485.     (\() traceprint exch trace= (, ) traceprint trace= (\)) traceprint
  486. } def
  487.  
  488. % Print out bb's current notion of its bounding box
  489.  
  490. /dump-bbox
  491. {
  492.     (Bounding Box: ) traceprint
  493.     bbox-llx bbox-lly dump-coord
  494.     (; ) traceprint
  495.     bbox-urx bbox-ury dump-coord
  496.     (\n) traceprint
  497. } def
  498.  
  499. tracebegin %% DEBUG
  500.  
  501. }
  502. { % No trace package loaded, so don't trace.  Stub out the various calls
  503.  
  504. /traceprint { pop } def
  505. /dump-coord { pop pop } def
  506. /dump-bbox { } def
  507. /debug { pop  pop } def
  508. /tracedump { } def
  509.  
  510. } ifelse
  511.  
  512. % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % 
  513.  
  514. % Bind everything
  515.  
  516. /xdef binddefinition
  517. /xstore binddefinition
  518. /addcoords binddefinition
  519. /stroke binddefinition
  520. /fill binddefinition
  521. /eofill binddefinition
  522. /show binddefinition
  523. /widthshow binddefinition
  524. /ashow binddefinition
  525. /awidthshow binddefinition
  526. /image binddefinition
  527. /showpage binddefinition
  528. /init binddefinition
  529. /includepath binddefinition
  530. /bwstroke binddefinition
  531. /chcount binddefinition
  532. /fontheight binddefinition
  533.  
  534. /debug binddefinition
  535. /dump-coord binddefinition
  536. /dump-bbox binddefinition
  537.  
  538. % Start it up.
  539.  
  540. init
  541.  
  542. end % $BoundingBox
  543.  
  544. %  end of bb.ps
  545.  
  546. % $Log:    bb.ps,v $
  547. % Revision 1.14  91/03/21  13:04:02  cosell
  548. % Relocated the position of the constrained BBox info
  549. % 
  550. % Revision 1.13  91/03/21  12:21:04  cosell
  551. % Forced the %BoundingBox info to stay within the page boundaries
  552. % 
  553. % Revision 1.12  91/03/21  12:15:17  cosell
  554. % Added a tracing hook to bridge restores.
  555. % 
  556. % Revision 1.11  90/07/02  08:48:40  cosell
  557. % bbfig now correctly copes with empty paths
  558. % 
  559. % Revision 1.10  90/06/27  10:47:22  cosell
  560. % Added a bunch of improvements from Joe Pallas at stanford.
  561. % 
  562. % Revision 1.9  90/06/26  10:50:20  cosell
  563. % Stack got botched in the 'debug' stub
  564. % 
  565. % Revision 1.8  90/06/25  09:34:51  cosell
  566. % Minor bug in 'restore'
  567. % 
  568. % Revision 1.7  90/06/25  09:29:58  cosell
  569. % Added code to catch and deal with 'restore'.  Thanks to Frank
  570. % Jensen for finding this one
  571. % 
  572. % Revision 1.6  90/06/25  09:23:26  cosell
  573. % Small bugfix in the text-handling stuff
  574. % 
  575. % Revision 1.5  90/06/10  09:04:02  cosell
  576. % Changed the printed string to explictly say "%%BoundingBox"
  577. % 
  578. % Revision 1.4  90/06/10  08:55:39  cosell
  579. % Added 'bind' machinery to insulate this package from later redefinitions
  580. % of things we need from the systemdict.
  581. % 
  582. % Revision 1.3  90/06/10  08:28:53  cosell
  583. % Added debugging hooks.  They don't affect anything (and don't do
  584. % anything) in the normal use of bbfig.  But if the 'trace' package
  585. % is loaded ahead of this, it'll print out some helpful info.  Probably
  586. % I'll end up removing all of this if/when I really get the package
  587. % up to snuff.
  588. % 
  589. % Revision 1.2  90/05/25  12:08:24  cosell
  590. % Major improvements and tuneups:  fixed it to really use its private
  591. % discionary, and the most importnat: it now computes the bounding box
  592. % in *default* coords
  593. %
  594. % Revision 1.1  90/05/23  08:18:54  cosell
  595. % Initial revision
  596. %   This is Ned Bachelder's original version
  597. % ------- Insert new version of bb.ps above -----------------------------
  598. endps  /* of SendBBfig () */
  599.  
  600.  
  601.  
  602. /* pswrap to get the final BoundingBox info back. */
  603. defineps GetBBox (|float *llx, *lly, *urx, *ury)
  604.     $BoundingBox begin
  605.     bbox-llx llx bbox-lly lly bbox-urx urx bbox-ury ury
  606.     end % $BoundingBox
  607. endps
  608.  
  609.  
  610.  
  611. /* ShowMesh() -- Jan. 10, 1992  Izumi Ohzawa  -- First version */
  612.  
  613. defineps ShowMesh()
  614.  
  615. % /yapwidth 612 def        % already defined
  616. % /yapheight 792 def
  617.  
  618. /temp-str 10 string def
  619. /Helvetica findfont 10 scalefont setfont
  620.  
  621. % First Horizontal lines
  622. 0.66667 setgray
  623. % [2 2] 0 setdash
  624.  
  625. 0 10 yapheight
  626. {
  627.   % y on stack
  628.   dup    % y y 
  629.   0 exch moveto    % y 
  630.   yapwidth exch lineto    %  y
  631.   stroke
  632. } for
  633.  
  634. % [] 0 setdash
  635.  
  636. 0.3333 setgray
  637.  
  638. 0 100 yapheight
  639. {
  640.   % y on stack
  641.   dup dup    % y y y
  642.   0 exch moveto    % y y
  643.   gsave
  644.   3 1 rmoveto
  645.   dup temp-str cvs show
  646.   grestore
  647.   yapwidth exch lineto    %  y
  648.   gsave
  649.   stroke
  650.   grestore
  651.   -20 2 rmoveto
  652.   temp-str cvs show
  653.   newpath
  654. } for
  655.  
  656.  
  657. % now do vertical lines
  658. gsave
  659. 0 yapheight translate -90 rotate
  660.  
  661. 0.66667 setgray
  662. % [2 2] 0 setdash
  663.  
  664. 10 10 yapwidth
  665. {
  666.   % y on stack
  667.   dup    % y y
  668.   0 exch moveto    % y
  669.   yapheight exch lineto
  670.   stroke
  671. } for
  672.  
  673. % [] 0 setdash
  674.  
  675. 0.3333 setgray
  676.  
  677. 100 100 yapwidth
  678. {
  679.   % y on stack
  680.   dup dup    % y y y
  681.   0 exch moveto    % y y
  682.   gsave
  683.   5 1 rmoveto
  684.   dup temp-str cvs show
  685.   grestore
  686.   yapheight exch lineto    %  y
  687.   gsave
  688.   stroke
  689.   grestore
  690.   -18 2 rmoveto
  691.   temp-str cvs show
  692.   newpath
  693. } for
  694.  
  695. grestore  % rotation and translation for vertical lines
  696. 0 setgray
  697.  
  698. endps  /* of ShowMesh() */
  699.  
  700.